home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / mondu / getcrdev.bas < prev    next >
BASIC Source File  |  1994-07-21  |  322b  |  9 lines
  1. 10 '   カレント・ディスクの取得
  2. 20 CLEAR ,,1024,1049,6000:DEFINT A-Z:LOADM "bas_lib.rex",0
  3. 30 CLS:PRINT "start time",TIME$
  4. 40 CMD=0   'REXｱﾄﾞﾚｽをﾛｰﾄﾞしたｵﾌｾｯﾄ
  5. 50 RET&=CALLM(CMD,1)
  6. 60 PRINT "現在、カレント・ドライブは";AKCNV$(CHR$(RET&));"です。"
  7. 140 PRINT "何かキーを押してください。"
  8. 150 WHILE INKEY$="":WEND:END
  9.